home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 1
/
PC World Interactive 1 - Nisan 1997.iso
/
prog
/
masa
/
12
/
setup.exe
/
0
/
RCDATA
/
TMAIN
/
TMAIN.txt
< prev
Wrap
Text File
|
1997-01-03
|
7KB
|
301 lines
object main: Tmain
Left = 331
Top = 193
BorderStyle = bsSingle
Caption = 'The CrashCourse Installer'
ClientHeight = 377
ClientWidth = 432
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Visible = True
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 432
Height = 358
Align = alClient
Picture.Data = {<image000.bmp>}
Stretch = True
end
object var1: TLabel
Left = 80
Top = 416
Width = 21
Height = 13
Caption = 'var1'
Visible = False
end
object Label1: TLabel
Left = 64
Top = 192
Width = 79
Height = 13
Caption = 'Source Directory'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 64
Top = 240
Width = 98
Height = 13
Caption = 'Destination Directory'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object title: TImage
Left = 24
Top = 24
Width = 385
Height = 145
Stretch = True
end
object Label2: TLabel
Left = 64
Top = 280
Width = 84
Height = 13
Caption = 'Start Menu Folder'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 40
Top = 56
Width = 353
Height = 89
Alignment = taCenter
AutoSize = False
Font.Color = clWhite
Font.Height = -33
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 16
Top = 8
Width = 217
Height = 13
AutoSize = False
Caption = 'Label5'
Visible = False
end
object Label6: TLabel
Left = 40
Top = 152
Width = 38
Height = 13
Caption = 'Version:'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label7: TLabel
Left = 88
Top = 152
Width = 21
Height = 13
Caption = '1.00'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object SpeedButton1: TSpeedButton
Left = 352
Top = 200
Width = 25
Height = 25
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F7733333333333300333333333333337733333333333330000}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 352
Top = 248
Width = 25
Height = 25
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
333337F373F773333333303330033333333337F3377333333333303333333333
333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
333337777F337F33333330330BB00333333337F373F773333333303330033333
333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
333377777F77377733330BBB0333333333337F337F33333333330BB003333333
333373F7733333333333300333333333333337733333333333330000}
NumGlyphs = 2
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 8
Top = 328
Width = 25
Height = 25
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
333333333777733333333333FBFBFB33333333333333333333330000}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object Label8: TLabel
Left = 88
Top = 328
Width = 85
Height = 13
Caption = 'View Readme File'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object s: TEdit
Left = 64
Top = 208
Width = 265
Height = 17
BorderStyle = bsNone
Color = clWhite
TabOrder = 0
Text = 's'
end
object d: TEdit
Left = 64
Top = 256
Width = 265
Height = 17
BorderStyle = bsNone
Color = clWhite
TabOrder = 1
Text = 'd'
end
object Button2: TButton
Left = 264
Top = 328
Width = 75
Height = 25
Caption = 'Install'
TabOrder = 2
OnClick = Button2Click
end
object Button1: TButton
Left = 352
Top = 328
Width = 75
Height = 25
Caption = 'Exit'
TabOrder = 3
OnClick = Button1Click
end
object ini: TListBox
Left = 216
Top = 384
Width = 121
Height = 97
ItemHeight = 13
TabOrder = 4
Visible = False
end
object StatusBar1: TStatusBar
Left = 0
Top = 358
Width = 432
Height = 19
Panels = <>
SimplePanel = False
end
object smenu: TComboBox
Left = 64
Top = 296
Width = 265
Height = 21
Color = clWhite
ItemHeight = 13
TabOrder = 6
end
object smenubox: TFileListBox
Left = 120
Top = 416
Width = 65
Height = 25
FileType = [ftDirectory]
ItemHeight = 13
TabOrder = 7
Visible = False
end
object dini: TListBox
Left = 96
Top = 440
Width = 65
Height = 25
ItemHeight = 13
TabOrder = 8
Visible = False
end
object txtread: TCheckBox
Left = 64
Top = 328
Width = 17
Height = 17
Caption = 'txtread'
Color = 10485760
ParentColor = False
State = cbChecked
TabOrder = 9
end
end